object RegisterForm: TRegisterForm Left = 376 Top = 159 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Registration Information' ClientHeight = 489 ClientWidth = 538 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCloseQuery = FormCloseQuery OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object TLabel Left = 65 Top = 35 Width = 31 Height = 13 Alignment = taRightJustify Caption = '&Name:' FocusControl = EName end object TLabel Left = 46 Top = 59 Width = 50 Height = 13 Alignment = taRightJustify Caption = 'Address &1:' FocusControl = EAddress1 end object TLabel Left = 46 Top = 83 Width = 50 Height = 13 Alignment = taRightJustify Caption = 'Address &2:' FocusControl = EAddress2 end object TLabel Left = 76 Top = 107 Width = 20 Height = 13 Alignment = taRightJustify Caption = 'C&ity:' FocusControl = ECity end object TLabel Left = 197 Top = 107 Width = 75 Height = 13 Alignment = taRightJustify Caption = '&State/Province:' FocusControl = EState end object TLabel Left = 324 Top = 107 Width = 60 Height = 13 Alignment = taRightJustify Caption = 'Posta&l Code:' FocusControl = EPostalCode end object TLabel Left = 57 Top = 131 Width = 39 Height = 13 Alignment = taRightJustify Caption = 'C&ountry:' FocusControl = ECountry end object TLabel Left = 74 Top = 155 Width = 22 Height = 13 Alignment = taRightJustify Caption = '&Age:' FocusControl = EAge end object TLabel Left = 62 Top = 219 Width = 34 Height = 13 Alignment = taRightJustify Caption = 'P&hone:' FocusControl = EPhone end object TLabel Left = 65 Top = 243 Width = 31 Height = 13 Alignment = taRightJustify Caption = '&E-mail:' FocusControl = EEMail end object TLabel Left = 8 Top = 267 Width = 88 Height = 13 Alignment = taRightJustify Caption = '&Where purchased:' FocusControl = CPurchased end object TLabel Left = 281 Top = 219 Width = 79 Height = 13 Alignment = taRightJustify Caption = 'Date pu&rchased:' FocusControl = EDate end object TLabel Left = 44 Top = 315 Width = 52 Height = 13 Alignment = taRightJustify Caption = '&Comments:' FocusControl = MComments end object LProduct: TLabel Left = 56 Top = 11 Width = 40 Height = 13 Alignment = taRightJustify Caption = 'Prod&uct:' FocusControl = EProduct end object TLabel Left = 285 Top = 243 Width = 75 Height = 13 Alignment = taRightJustify Caption = 'Computer T&ype:' FocusControl = EComputerType end object TLabel Left = 274 Top = 267 Width = 86 Height = 13 Alignment = taRightJustify Caption = 'Operatin&g System:' FocusControl = EOS end object TLabel Left = 333 Top = 291 Width = 27 Height = 13 Alignment = taRightJustify Caption = 'RA&M:' FocusControl = ERAM end object LEStoreType: TLabel Left = 43 Top = 291 Width = 55 Height = 13 Alignment = taRightJustify Caption = 'S&tore Type:' Enabled = False FocusControl = EStoreType end object EName: TEdit Left = 100 Top = 32 Width = 168 Height = 21 TabOrder = 1 end object EAddress1: TEdit Left = 100 Top = 56 Width = 168 Height = 21 TabOrder = 2 end object EAddress2: TEdit Left = 100 Top = 80 Width = 168 Height = 21 TabOrder = 3 end object ECity: TEdit Left = 100 Top = 104 Width = 88 Height = 21 TabOrder = 4 end object EState: TEdit Left = 276 Top = 104 Width = 40 Height = 21 CharCase = ecUpperCase TabOrder = 5 end object EPostalCode: TEdit Left = 388 Top = 104 Width = 64 Height = 21 TabOrder = 6 end object ECountry: TEdit Left = 100 Top = 128 Width = 168 Height = 21 TabOrder = 7 end object EAge: TEdit Left = 100 Top = 152 Width = 168 Height = 21 TabOrder = 8 end object EPhone: TEdit Left = 100 Top = 216 Width = 168 Height = 21 TabOrder = 10 end object EEMail: TEdit Left = 100 Top = 240 Width = 168 Height = 21 TabOrder = 11 end object RSex: TRadioGroup Left = 67 Top = 176 Width = 305 Height = 33 Caption = 'Se&x:' Columns = 3 ItemIndex = 2 Items.Strings = ( 'Male' 'Female' 'Decline to state') TabOrder = 9 end object CPurchased: TComboBox Left = 100 Top = 264 Width = 168 Height = 21 ItemHeight = 13 TabOrder = 12 OnChange = CPurchasedChange Items.Strings = ( 'Best Buy' 'BJ'#39's Wholesale Club' 'Bradlee'#39's' 'CompUSA' 'Cosmi Web Site' 'Eckerd'#39's' 'Electronics Boutique' 'Fred Meyer' 'K-Mart' 'Office Depot' 'Office Max' 'Price-Costco' 'Radio Shack' 'Sam'#39's Club' 'Software Etc.' 'Staples' 'Walmart') end object BPrint: TBitBtn Left = 117 Top = 416 Width = 130 Height = 65 Caption = '&Print Registration...' Default = True ModalResult = 1 TabOrder = 19 OnClick = BPrintClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} NumGlyphs = 2 Spacing = 10 end object EDate: TOvcDateEdit Left = 364 Top = 216 Width = 168 Height = 21 AllowIncDec = True ButtonGlyph.Data = { 4A010000424D4A0100000000000042000000280000000B0000000B0000000100 1000030000000801000000000000000000000000000000000000007C0000E003 00001F000000E03D000000000000000000000000000000000000E03D00000000 F75EF75EEF3DF75EF75EEF3DF75EF75EF75E000000F00000007CF75EEF3D007C F75EEF3D007CF75EF75E0000D7020000EF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3D EF3D000083030000F75EF75EEF3DF75EF75EEF3DF75EF75EF75E000051020000 007CF75EEF3D007CF75EEF3D007CF75EF75E000083030000EF3DEF3DEF3DEF3D EF3DEF3DEF3DEF3DEF3D000064000000F75EF75EEF3DF75EF75EEF3DF75EF75E F75E000005000000007CF75EEF3D007CF75EEF3D007CF75EF75E000004000000 00000000000000000000000000000000000000005A04E03D1F001F00EF3DEF3D EF3DEF3DEF3D1F001F00E03DC102} Controller = OvcController Epoch = 1980 ForceCentury = False LabelInfo.Visible = False PopupAnchor = paLeft PopupColors.ActiveDay = clRed PopupColors.ColorScheme = cscalCustom PopupColors.DayNames = clMaroon PopupColors.Days = clBlack PopupColors.InactiveDays = clGray PopupColors.MonthAndYear = clBlue PopupColors.Weekend = clRed PopupDateFormat = dfLong PopupDayNameWidth = 3 PopupFont.Charset = DEFAULT_CHARSET PopupFont.Color = clWindowText PopupFont.Height = -11 PopupFont.Name = 'MS Sans Serif' PopupFont.Style = [] PopupHeight = 140 PopupOptions = [cdoShortNames, cdoShowYear, cdoShowInactive, cdoShowRevert, cdoShowToday, cdoShowNavBtns] PopupWidth = 200 PopupWeekStarts = dtSunday ReadOnly = False RequiredFields = [rfYear, rfMonth, rfDay] ShowButton = False TabOrder = 14 TodayString = '/' end object MComments: TMemo Left = 100 Top = 312 Width = 432 Height = 89 TabOrder = 18 end object EProduct: TEdit Left = 100 Top = 8 Width = 168 Height = 21 TabOrder = 0 end object BDontRegister: TBitBtn Left = 291 Top = 416 Width = 130 Height = 65 Caption = '&Don'#39't Register' TabOrder = 20 Kind = bkCancel Spacing = 10 end object EComputerType: TEdit Left = 364 Top = 240 Width = 168 Height = 21 TabOrder = 15 end object EOS: TEdit Left = 364 Top = 264 Width = 168 Height = 21 TabOrder = 16 end object ERAM: TEdit Left = 364 Top = 288 Width = 168 Height = 21 TabOrder = 17 end object EStoreType: TEdit Left = 100 Top = 288 Width = 168 Height = 21 Enabled = False TabOrder = 13 end object OvcController: TOvcController EntryCommands.TableList = ( 'Default' True () 'WordStar' False () 'Grid' False ()) EntryOptions = [efoAutoSelect, efoBeepOnError, efoInsertPushes] Epoch = 1900 Left = 411 Top = 8 end end